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FIG. 9A 

/* Includes required */ 
iinclude <GL/gl.h> 
ft include <GL/glut . h> 
# include <stdio.h> 
ffinclude <ppm.h> 
ftinclude <math.h> 

/ * * 

* something because of windows 
*/ 

void eprintf() { 

} 

/ + * 

* our data structure of choice 
*/ 

typedef struct obj { 

/* other parameters */ 
float matrix[16]; 

/* view angle */ 
float viewangle; 

/* aspect ratio */ 
float aspect; 

/* z of the camera */ 
float tz; 

/* ry of the camera */ 
float ry; 
} Obj; 

/* hold the display lists for textures */ 
typedef struct texture { 

int texl; 

int tex2; 
} Texture; 

/ + * 

* our global variables 
*/ 

/* camera settings */ 
Obj scene; 
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/* texture stuff */ 
Texture def ; 

Texture* cur rent_text ure = &def; 

/* track the next display list number */ 
int nextDLnum = 2; 

/* stuff for lighting */ 

float lightPos[4] = {2.0, 4.0, 2.0, 0}; 
float lightDir[4] = {0, 0, 1.0, 1.0}; 
float lightAmb[4] = {0.4, 0.4, 0.4, 1.0}; 
float lightDiff[4] = {0.8, 0.8, 0.8, 1.0}; 
float lightSpec[4] = {0.8, 0.8, 0.8, 1.0}; 
int lights = 0; 
int outsideView = 0; 
int parent; 

#define HEMISPHERE 1 

void createHemisphere ( int listNum, int numPts, int geom) ; 
/ * * 

* Read in the ppm files and create display lists for a texture 

* returns the dimension of the image 
*/ 

pixel **mapl, **map2; 

GLubyte *texl, *tex2, **tmpPP, *tmpP; 

void readTexture (Texture* t, char* filel, char* file2) { 
FILE *fpl, *fp2; 
int cols, rows, i, j, index; 
pixval maxval; 

/* open the files */ 
fpl = fopen (filel, "r"); 
fp2 = fopen (file2, "r"); 
if (!fpl) { 

fprintf (stderr , "Couldn't open %s\n", filel); 

} 

if (!fp2) { 

fprintf (stderr, "Couldn't open %s\n", file2); 

} 

/* read the ppm files */ 

mapl = ppm__readppm ( f pi , &cols, &rows, &maxval) ; 

fprintf ( stderr , "%s: rows = %d \t cols = %d\n", filel, rows, 

cols , maxval ) ; 

map2 = ppm_readppm ( f p2 , &cols, &rows, &maxval); 
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fprintf (stderr, "%s: rows = %d \t cols = %d\n", file2, rows, 
cols, maxval ) ; 



/* convert them */ 

texl = malloc (sizeof (GLubyte) * rows * cols * 3); 
tex2 = malloc (sizeof (GLubyte) * rows * cols * 3); 
index = 0; 

for (i =0; i < rows; i + +) { 
for (j = 0; j < cols; j++) { 
/* R */ 

texl [index] = PPM_GETR (mapl [ i ] [ j ] ) ; 
tex2 [index] = PPM_GETR (map2 [ i ] [ j ] ) ; 
index + +; 

/* G */ 

texl [index] = PPM_GETG (mapl [ i ] [ j ] ) ; 

tex2 [index] = PPM_GETG (map2 [ i ] [ j ] ) ; 
index ++; 

/* B */ 

texl [index] = PPM_GETB (mapl [ i ] [ j ] ) ; 
tex2 [index] = PPM_GETB (map 2 [ i ] [ j ] ) ; 
index + + ; 

} 

} 



/* create the textures */ 

/* new display list*/ 

glNewList (nextDLnum, GL_COMPILE) ; 

t->texl = nextDLnum; 

next DLnum++ ; 

glTexImage2D (GL_TEXTURE_2D, 0, 3, cols, rows, 0, GL_RGB, 
GL_UNSIGNED_BYTE, 

texl ) ; 
glEndList ( ) ; 

/* new display list*/ 
glNewList (nextDLnum, GL_COMPILE) ; 
t->tex2 = nextDLnum; 
nextDLnum++ ; 

glTexImage2D (GL_TEXTURE_2D, 0, 3, cols, rows, 0, GL_RGB, 
GL_UNSIGNED_BYTE 9 

tex2) ; 
glEndList ( ) ; 
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/ * * 

* this will initialize the display lists for the objects 
*/ 

void initialize_ob j ects ( int argc, char**argv) { 
float tmp [ 4 ] ; 

/* read in the texture */ 
readTexture (&def , argv [1] , argv[2] ) ; 

/* create hemisphere */ 

createHemisphere (1, 50, GL__TRIANGLE_STRIP) ; 
/* scene */ 

scene . viewangle = 130; 
scene. tz = 0; 
scene. ry = 0; 

} 



/* 

* Clear the screen, draw the objects 
*/ 

void display () 
{ 

float tmp [ 4 ] ; 
float height; 

/* clear the screen */ 

glClear (GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT ) ; 

/* adjust for scene orientation */ 
glMatrixMode ( GL__PROJECTION ) ; 
if (outsideView) { 
glLoadldentity ( ) ; 

gluPerspective (45, scene . aspect , 0.1, 10.0); 
glTranslatef (0, 0, -3); 
glRotatef (45, 1, 0, 0) ; 
glRotatef (45, 0, 1, 0); 
glDisable (GL_TEXTURE_2D) ; 
glColor3f ( . 8, .8, . 8) ; 
} else { 
glLoadldentity ( ) ; 

glu Perspective (scene . viewangle, scene. aspect, 0.1, 10.0); 
glTranslatef ( 0 , 0, scene.tz); 
glRotatef ( scene . ry, 0, 1, 0); 

} 
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/* draw our models */ 
glMatrixMode ( GL_MODELVIEW ) ; 
glPushMatrix ( ) ; 

if ( outsideView) { 
/* transform to where the camera would be */ 
glPushMatrix ( ) ; 

/* draw a cube for the camera */ 
glLoadldentity ( ) ; 
glRotatef (180, 1, 0, 0); 
glTranslatef (0, 0, scene. tz); 
tmp [ 0 ] = tmp [ 1 ] = tmp [ 2 ] = . 8 ; 
tmp[3] - 1; 

glMaterialf v (GL_FRONT_AND_BACK, GL_SPECULAR, tmp) ; 
glMaterialf ( GL_FRONT_AND_BACK, GL_SHININESS , 0.0); 
glMaterialf v ( GL_FRONT_AND_BACK, GL_AMBIENT__AND_DI FFUSE , tmp) ; 
glutSolidCube ( . 1) ; 

/* draw a cone for the view frustrum */ 

glLoadldentity ( ) ; 

height = 1 - scene. tz; 

glRotatef (45, 0, 0, 1); 

glTranslatef (0, 0, -1); 

tmp[0] = tmp[l] = 1; 

tmp [2] = 0; 

tmp [3] = .3; 

glMaterialf v (GL_FRONT_AND_BACK, GL_SPECULAR, tmp) ; 
glMaterialf (GL_FRONT_AND_BACK, GL_SHININESS , 0.0) ; 
glMaterialf v ( GL_FRONT_AND_BACK, GL_AMBIENT_AND_DI FFUSE , tmp) ; 
glutSolidCone (tan (scene . viewangle * 3.14 / 360.0) * height, 
height, 20, 1) ; 

glPopMatrix ( ) ; 

glEnable (GL_TEXTURE_2D) ; 

} 

/* now draw the semisphere */ 
if (lights) { 

tmp[0] = tmp[l] = tmp [2] = .8; 

tmp [ 3 ] = . 8 ; 

glMaterialf v (GL_FRONT_AND_BACK, GL_SPECULAR, tmp) ; 
glMaterialf (GL_FRONT_AND_BACK, GL_SHININESS , 10.0); 
glMaterialf v (GL_FRONT_AND_BACK, GL_AMBIENT__AND_DI FFUSE , tmp) ; 

} 

glCallList ( cur rent_texture->texl ) ; 
glCallList (HEMISPHERE) ; 
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if (lights) { 
tmp [ 0 ] = tmp [ 1 ] = tmp [ 2 ] = . 5; 
trap [ 3 ] = . 5 ; 

glMaterialf v (GL_FRONT_AND__BACK, GL_SPECULAR, tmp) ; 
glMaterialf (GL_FRONT_AND_BACK, GL_SHININESS , 10.0) ; 
glMaterialf v (GL_FRONT_AND_BACK, GL__AMBI ENT_AND_DI FFUSE , tmp) 

) 

glRotatef (180 . 0, 0.0, 0.0, 1.0); 
glCallList (current_texture->tex2) ; 
glCallList (HEMISPHERE) ; 
glPopMatrix ( ) ; 

fprintf (stderr, "%s\n", gluErrorString (glGetError ( ) ) ) ; 
glutSwapBuf f ers ( ) ; 

} 

/* 

* Handle Menus 
*/ 

ttdefine M_QUIT 1 

void Select (int value) 

{ 

switch (value) { 
case M_QUIT: 

exit (0) ; 

break; 

} 

glutPostRedisplay ( ) ; 

} 

void create_menu ( ) { 

fprintf ( stderr, "Press ? for help\n"); 
glutCreateMenu (Select ) ; 
glutAddMenuEntry ( "Quit" , M_QUIT) ; 
glutAttachMenu (GLUT_RIGHT_BUTTON) ; 

} 



/* Initializes hading model */ 

void mylnit (void) 

{ 

glEnable (GL_DEPTH_TEST) ; 
glShadeModel (GL_SMOOTH) ; 

/* texture stuff */ 

glPixelStorei (GL_UNPACK_ALIGNMENT, sizeof (GLubyte) ) ; 
glTex Parameter f ( GL__TEXTURE_2 D, GL_TEXTURE_WRAP_S , GL CLAMP); 
, glTexParame ter f (GL TEXTURE 2D, GL TEXTURE WRAP T, GL~CLAMP) ; 
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glTexParameterf (GL__TEXTURE__2 D, GL_TEXTURE_MAG_FILTER, 
GL_NEAREST) ; 

glTexParameterf ( GL__TEXTURE__2 D, GL_TEXTURE_MIN__FILTER, 
GL_NEAREST) ; 

glTexEnvf (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE , GL_DECAL) ; 
glEnable (GL_TEXTURE_2D) ; 



/* 

* Called when the window is first opened and whenever 

* the window is reconfigured (moved or resized) . 
*/ 

void myReshape ( int w, int h) 
{ 

glViewport (0, 0, w, h) ; /* define the viewport 

scene . aspect = 1.0* (GLf loat ) w/ (GLf loat ) h; 
glMatrixMode ( GL_PROJECTION ) ; 
glLoadldenti ty ( ) ; 

gluPerspective ( scene . viewangle, scene . aspect , 0.1, 10.0) ; 
glMul tMa t r ixf (scene .matrix) ; 

glMatrixMode ( GL_MO DEL VIEW ) ; /* back to modelview 

matriix */ 

} 

/* 

* Keyboard handler 
*/ 

void 

Key (unsigned char key, int x, int y) 
{ 

float matrix [16]; 
glMatrixMode (GL_MODELVIEW) ; 

glGet Float v ( GL_MODELVIEW_MATRIX, matrix) ; 
glLoadldentity ( ) ; 

fprintf ( stderr, "%d - %c " , key, key) ; 
switch (key) { 
case 1 o 1 : 
if ( ! ou tsideView) { 

fprintf (stderr, "outside on "); 
outsideView = 1; 

/* turn on blending */ 
glEnable (GL_BLEND) ; 

glBlendFunc ( GL_SRC_AL PHA , GL_ONE_MINUS_SRC_ALPHA) ; 
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/* We want to see color */ 

glTexEnvf (GL_TEXTURE_ENV , GL_TEXTURE__ENV_MODE , GL ^MODULATE ) ; 

/* turn on our spotlight */ 
glEnable (GL_LIGHT1 ) ; 

glLightfv (GL_LIGHT1, GL_AMB I ENT , lightAmb) ; 
glLightfv (GL_LIGHT1, GL_DI FFUSE , lightDiff) ; 
glLightfv (GL_LIGHT1 , GL_SPECULAR, lightSpec) ; 
glLightfv (GL_LIGHT1, GL_SPOT_DIRECTION, lightDir) ; 
} else { 

f printf ( stderr , "outside off " ) ; 
outsideView = 0; 

glTexEnvf (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE f GL_DECAL) ; 
glDisable (GL_BLEND) ; 

} 

break; 
case 1 F 1 : 

fprintf (stderr, "flat "); 

glShadeiXIodel (GL_FLAT) ; 

break; 
case 1 f ? : 

f printf ( stderr , "smooth "); 

glShadeModel ( GL_SMOOTH ) ; 

break; 
case ' y 1 : 

printf ("ry = %f\n" f scene. ry) ; 

scene . r y -= 5 ; 

break; 
case T Y 1 : 

scene. ry += 5; 

break; 
case 1 z ' : 

scene. tz -= .02; 

f printf ( stderr , " tz = %f scene. tz); 

break; 
case ' Z ' : 
scene. tz += .02; 

f printf ( stderr , " tz = %f ", scene. tz); 
break; 
case 1 a 1 : 
scene . viewangle -= 1; 

f print f ( stderr , " angle: %f " , scene . viewangle ) ; 
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break; 
case 1 A 1 : 
scene . viewangle += 1; 

f print f ( stderr , "angle: %f ", scene. viewangle) ; 

break; 
case 55: 

glRotatef (-5, 0.0, 0.0, 1.0); 

break; 
case 57 : 

glRotatef(5, 0.0, 0.0, 1.0); 

break; 
case 52 : 

glRotatef (-5, 0.0, 1.0, 0.0); 

break; 
case 54 : 

glRotatef(5, 0.0, 1.0, 0.0); 

break; 
case 56: 

glRotatef(5, 1.0, 0.0, 0.0); 

break; 
case 50 : 

glRotatef (-5, 1.0, 0.0, 0.0); 

break; 
case 1 q 1 : 

if (lights) { 

glDisable (GL_LIGHT0) ; 
glDisable (GL__LIGHTING) ; 
lights = 0; 

fprintf (stderr, "no lights "); 
} else { 

glEnable (GL_LIGHTING) ; 
glEnable (GL_LIGHT0) ; 

glLightfv (GL_LIGHT0, GL_POSITION, lightPos) ; 
glLightfv (GL_LIGHT0 , GL_AMBIENT, lightAmb) ; 
glLightfv (GL_LIGHT0, GL_DIFFUSE, lightDiff ) ; 
glLightfv (GL_LIGHT0, GL__SPECULAR, lightSpec) 
lights _= 1; 

fprintf (stderr, "lights "); 

} 

break; 
case 1 1 1 : 
f print f ( stderr , "texture off " ) ; 
glDisable (GL__TEXTURE_2D) ; 
break; 
'case 1 T 1 : 

fprintf (stderr , "texture on "); 
glEnable (GL_TEXTURE_2D) ; 
break; 
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case 1 ? 1 : 

fprintf (stderr, 

fprintf (stderr, 
scene\n" ) ; 

fprintf (stderr, 

fprintf (stderr, 

fprintf (stderr, 

fprintf (stderr, 

break; 
case 27 : 

exit ( 1 ) ; 
break; 
default : 

fprintf (stderr, 

break; 

} 

fprintf (stderr, "\n") ; 
glMul tMat rixf (matrix) ; 
glutPostRedisplay ( ) ; 

} 

/* 

* Main Loop 

* Open window with initial window size, title bar, 

* RGBA display mode, and handle input events. 
V 

int main (int argc, char** argv) 
{ 

glutlnit (&argc, argv) ; 

glutlnitDisplayMode (GLUT_DOUBLE | GLUT_RGBA) ; 
parent = glutCreateWindow (argv[0]); 
mylnit ( ) ; 

glutKeyboardFunc (Key) ; 
glutReshapeFunc (myReshape) ; 
glutDisplayFunc (display ) ; 
create__menu ( ) ; 

initialize__obj ects (argc, argv) ; 
glutMainLoop ( ) ; 

} 
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"hjkl - rotate current ob j ect \n" ). ; 
"s/S - shrink / grow the object or zoom the 

"a/A viewangle\n" ) ; 
"z/Z camera position\n" ) ; 
"f/F flat smooth\n"); 
"Escape quits \n"); 

/* Esc will quit */ 



"Unbound key - %d " , key) ; 



r 
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#ifdef WINDOWS 
((include <windows . h> 
#endif 

((include <GL/gl.h> 
#include <GL/glut.h> 

# include "warp . h" 

# include <s tdio . h> 
I + * 

* Triangulate a hemisphere and texture coordinates. 

* listNum - display list number 

* numPts number of points to a side 

* return the display list 
*/ 

void createHemisphere (int listNum, int numPts, int geom) { 
double incr =1.0 / numPts; 
double u, v, x, y, z; 
float tx, tz; 
int i, j ; 

/* start the display list */ 

glNewList (listNum, GL_COMPI LE__AND_EXECUTE ) ; 

/* create the coordinates */ 

/* use the square to circle map */ 

/* across then down */ 

v - 0; 

for (j = 0; j < numPts ; j++) { 
/* start the tri strip */ 
glBegin (geom) ; 
u = 0; 

for (i = 0; i <= numPts; i++) { 
/* do the top point */ 
/* get the XYZ coords */ 
map(u, v, &x, &y, &z); 

/* create the texture coord */ 
tx = x / 2 + .5; 
tz=z/2+.5; 

if (tx > 1.0 f| tz > 1.0 || tx < 0.0 || tz < 0.0) { 
printf("not in range %f %f\n", tx, tz); 

} 

glTexCoord2f (tx, tz) ; 
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/* normal */ 
glNormal3f (x, y, z); 

/* create the coord */ 
glVertex3f (x, y, z); 

/* get the XYZ coords */ 
map(u, v + incr, &x, &y, &z); 

/* create the texture coord */ 
tx = x / 2 + .5; 
tz = z / 2 + .5; 

if (tx > 1.0 II tz > 1.0 M tx < 0.0 || tz < 0.0) { 
printf("not in range %f %f\n", tx, tz); 

} 

glTexCoord2f (tx, tz) ; 

/* normal */ 
glNorma!3f (x, y r z); 

/* create the coord */ 
glVertex3f (x f y, z); 

/* adjust u */ 
u += incr; 

} 

/* done with the list */ 
glEnd() ; 

/* adjust v */ 
v += incr; 

} 

/* all done with the list */ 
glEndList ( ) ; 

} 



